object FormSettings: TFormSettings
  Left = 361
  Top = 162
  Width = 907
  Height = 660
  Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 24
    Width = 70
    Height = 13
    Caption = 'SID DB Oracle'
  end
  object Label2: TLabel
    Left = 8
    Top = 56
    Width = 99
    Height = 13
    Caption = #1048#1084#1103'  '#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
  end
  object Label3: TLabel
    Left = 8
    Top = 88
    Width = 38
    Height = 13
    Caption = #1055#1072#1088#1086#1083#1100
  end
  object Label7: TLabel
    Left = 176
    Top = 240
    Width = 72
    Height = 13
    Caption = 'name_personal'
  end
  object Label8: TLabel
    Left = 48
    Top = 216
    Width = 72
    Height = 13
    Caption = 'name_personal'
  end
  object Label9: TLabel
    Left = 280
    Top = 208
    Width = 88
    Height = 13
    Caption = 'FULL_NAME_DIR'
  end
  object Button1: TButton
    Left = 112
    Top = 376
    Width = 113
    Height = 33
    Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
    TabOrder = 0
    OnClick = Button1Click
  end
  object EditDbName: TEdit
    Left = 112
    Top = 16
    Width = 105
    Height = 21
    TabOrder = 1
  end
  object EditDbUser: TEdit
    Left = 112
    Top = 48
    Width = 105
    Height = 21
    Hint = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100', '#1086#1090' '#1080#1084#1077#1085#1080' '#1082#1086#1090#1086#1088#1086#1075#1086' '#1089#1077#1088#1074#1077#1088' '#1074#1093#1086#1076#1080#1090' '#1074' Oracle'
    TabOrder = 2
  end
  object EditDbPassword: TEdit
    Left = 112
    Top = 80
    Width = 104
    Height = 21
    MaxLength = 16
    PasswordChar = '*'
    TabOrder = 3
  end
  object DBGridZetadisk: TDBGrid
    Left = 8
    Top = 112
    Width = 729
    Height = 225
    DataSource = DataSetZetadisk
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'FULL_NAME_DIR'
        PopupMenu = PopupMenu1
        ReadOnly = True
        Title.Caption = #1044#1080#1088#1077#1082#1090#1086#1088#1080#1103' '#1074' '#1086#1073#1083#1072#1082#1077
        Width = 287
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PATH_LOCAL'
        PopupMenu = PopupMenuLocalPath
        Title.Caption = #1051#1086#1082#1072#1083#1100#1085#1072#1103' '#1076#1080#1088#1077#1082#1090#1086#1088#1080#1103
        Width = 409
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 344
    Width = 240
    Height = 25
    DataSource = DataSetZetadisk
    TabOrder = 5
    OnClick = DBNavigator1Click
  end
  object DBCtrlGrid1: TDBCtrlGrid
    Left = 24
    Top = 416
    Width = 641
    Height = 200
    ColCount = 1
    DataSource = DataSetZetadisk
    PanelHeight = 66
    PanelWidth = 624
    TabOrder = 6
    RowCount = 3
    object DBEdit1: TDBEdit
      Left = 16
      Top = 8
      Width = 281
      Height = 21
      DataField = 'FULL_NAME_DIR'
      DataSource = DataSetZetadisk
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 16
      Top = 32
      Width = 297
      Height = 21
      DataField = 'PATH_LOCAL'
      DataSource = DataSetZetadisk
      TabOrder = 1
    end
  end
  object DataSetZetadisk: TDataSource
    DataSet = ds_zetadisk
    Left = 304
    Top = 176
  end
  object PopupMenu1: TPopupMenu
    Left = 384
    Top = 16
    object N1: TMenuItem
      Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
      OnClick = N1Click
    end
  end
  object PopupMenuLocalPath: TPopupMenu
    Left = 424
    Top = 16
    object N2: TMenuItem
      Caption = #1042#1099#1073#1088#1072#1090#1100
      OnClick = N2Click
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 464
    Top = 16
  end
  object SQLConnectionOracle: TSQLConnection
    Connected = True
    ConnectionName = 'OracleConnection'
    DriverName = 'Oracle'
    GetDriverFunc = 'getSQLDriverORACLE'
    LibraryName = 'dbexpora.dll'
    Params.Strings = (
      'DriverName=Oracle'
      'Database=ars'
      'User_Name=big3'
      'Password=password'
      'RowsetSize=20'
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Oracle TransIsolation=ReadCommited')
    VendorLib = 'oci.dll'
    Left = 352
    Top = 16
  end
  object ds_personal: TSQLDataSet
    SQLConnection = SQLConnectionOracle
    CommandText = 'select * from personal where login=user'
    Params = <>
    Left = 336
    Top = 176
    object ds_personalID_PERSONAL: TBCDField
      FieldName = 'ID_PERSONAL'
      Required = True
      Precision = 10
      Size = 0
    end
    object ds_personalFNAME: TStringField
      FieldName = 'FNAME'
      Required = True
      Size = 80
    end
    object ds_personalLOGIN: TStringField
      FieldName = 'LOGIN'
      Required = True
      Size = 60
    end
  end
  object DataSetProviderZ: TDataSetProvider
    DataSet = SQLQueryZ
    Constraints = True
    UpdateMode = upWhereChanged
    OnGetTableName = DataSetProviderZGetTableName
    Left = 328
    Top = 216
  end
  object SQLQueryZ: TSQLQuery
    NoMetadata = True
    SQLConnection = SQLConnectionOracle
    Params = <>
    SQL.Strings = (
      'select ID, ID_PERSONAL, ID_XFILES,'
      
        'PATH_LOCAL,util.get_full_name_dir(zetadisk.id_xfiles,'#39#39') as full' +
        '_name_dir'
      'from zetadisk'
      'where exists ( select 1 from personal'
      
        'where zetadisk.id_personal=personal.id_personal and personal.log' +
        'in=user)')
    Left = 296
    Top = 216
    object SQLQueryZID: TFMTBCDField
      FieldName = 'ID'
      ProviderFlags = [pfInKey]
      Precision = 32
      Size = 8
    end
    object SQLQueryZID_PERSONAL: TFMTBCDField
      FieldName = 'ID_PERSONAL'
      ProviderFlags = [pfInUpdate]
      Precision = 32
      Size = 8
    end
    object SQLQueryZID_XFILES: TFMTBCDField
      FieldName = 'ID_XFILES'
      ProviderFlags = [pfInUpdate]
      Precision = 32
      Size = 8
    end
    object SQLQueryZPATH_LOCAL: TStringField
      FieldName = 'PATH_LOCAL'
      ProviderFlags = [pfInUpdate]
      Size = 1000
    end
    object SQLQueryZFULL_NAME_DIR: TStringField
      FieldName = 'FULL_NAME_DIR'
      ProviderFlags = []
      Size = 4000
    end
  end
  object ds_zetadisk: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faRequired]
        DataType = ftFMTBcd
        Precision = 32
        Size = 8
      end
      item
        Name = 'ID_PERSONAL'
        DataType = ftFMTBcd
        Precision = 32
        Size = 8
      end
      item
        Name = 'ID_XFILES'
        DataType = ftFMTBcd
        Precision = 32
        Size = 8
      end
      item
        Name = 'PATH_LOCAL'
        DataType = ftString
        Size = 1000
      end
      item
        Name = 'FULL_NAME_DIR'
        DataType = ftString
        Size = 4000
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProviderZ'
    StoreDefs = True
    AfterInsert = ds_zetadiskAfterInsert
    AfterPost = ds_zetadiskAfterPost
    Left = 360
    Top = 216
    object ds_zetadiskID_PERSONAL: TFMTBCDField
      FieldName = 'ID_PERSONAL'
      ProviderFlags = [pfInUpdate]
      Precision = 32
      Size = 8
    end
    object ds_zetadiskID_XFILES: TFMTBCDField
      FieldName = 'ID_XFILES'
      ProviderFlags = [pfInUpdate]
      Precision = 32
      Size = 8
    end
    object ds_zetadiskPATH_LOCAL: TStringField
      FieldName = 'PATH_LOCAL'
      ProviderFlags = [pfInUpdate]
      Size = 1000
    end
    object ds_zetadiskFULL_NAME_DIR: TStringField
      FieldName = 'FULL_NAME_DIR'
      ProviderFlags = []
      Size = 4000
    end
    object ds_zetadiskID: TFMTBCDField
      FieldName = 'ID'
      ProviderFlags = [pfInKey]
      Precision = 32
      Size = 8
    end
  end
  object SQLMonitor1: TSQLMonitor
    Active = True
    AutoSave = True
    FileName = 'C:\Program Files\Borland\CBuilder6\Projects\zetadrive\trace'
    SQLConnection = SQLConnectionOracle
    Left = 528
    Top = 32
  end
end
